home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmdl.dir / Internal_58_setxTickValueEasy.ls < prev    next >
Encoding:
Text File  |  2001-09-04  |  802 b   |  36 lines
  1. property myName, meSprite, meMember, meHmember, meLowMember, meMateSprite
  2. global sessionObject, monkey
  3.  
  4. on beginSprite me
  5.   meMateSprite = sprite(me.spriteNum + 1)
  6.   meNum = me.spriteNum - 132
  7.   meSprite = sprite(me.spriteNum)
  8.   myName = meSprite.member.name
  9.   meLowMember = meSprite.member
  10.   meHmember = member(myName & "h", 2)
  11.   if sprite(17).xTickValue = 16 then
  12.     meMember = meHmember
  13.   else
  14.     meMember = meLowMember
  15.   end if
  16.   meSprite.member = meMember
  17. end
  18.  
  19. on mouseEnter me
  20.   meSprite.member = meHmember
  21.   updateStage()
  22. end
  23.  
  24. on mouseLeave me
  25.   meSprite.member = meMember
  26.   updateStage()
  27. end
  28.  
  29. on mouseUp me
  30.   meMember = meHmember
  31.   meMateSprite.member = meMateSprite.meLowMember
  32.   meMateSprite.meMember = meMateSprite.meLowMember
  33.   sprite(17).xTickValue = 16
  34.   sprite(18).xTickValue = 16
  35. end
  36.